use strict;
my %o;
@o{qw(a b c d e f)} = (1,2,3,4,5);
my @foo;
@foo=@o{"c".."e"};
print @foo;