select random window (or item from hash)

random.pl

#!/opt/local/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @windows = qw/one two three four/;
my %windows = map { $_ => $_ } @windows;

print Dumper \@windows, $/;
print Dumper \%windows, $/;

&get_random_window();

sub get_random_window {
	my $count = scalar @windows;
	my $index = int(rand($count));
	print "We have $count windows to choose from$/";
	print "we have chosen window ", $index+1, $/;
	print "NAME: ", $windows[$index], $/;
	print "TITLE: ", $windows{$windows[$index]}, $/;
}