#!c:/strawberry/perl/bin/perl -d

{
		# create arrays
	@a = (1, 2, 3, 4);
	@b = (10, 11, 12, 13, 14, 15);

	# push them into a hash
		
	push (@{ $hash{'f 1'}}, 2);
	push (@{ $hash{'f 1'}}, 3);
	push (@{ $hash{'f 1'}}, 4);

	push (@{ $hash{'f2'}}, 10);
	push (@{ $hash{'f2'}}, 11);
	push (@{ $hash{'f2'}}, 12);

	$num = 5;

	push(@{$hash{'f 1'}}, $num);
	push(@{$hash{'f 1'}}, 6);


	@keys = keys %hash;
	foreach $key (@keys) {
		while ($t = pop (@{$hash{$key}})) {
			print "$t\n";
		}
	}

}