#! perl -slw
use strict;

my( $a, $b ) = ( 'mya', 'myb' );

{
	our( $a, $b ) = ( 'oura', 'ourb' );
	my @sorted = sort { $a <=> $b } map{ rand 100 } 0 .. 99;
	print "$a : $b";
}
print "$a : $b";
__END__
P:\test>test
oura : ourb
mya : myb