my %hash = ( a => 1, b => 2, c => 3, d => 4 ); my $av = sub { \@_ }->( @hash{'d','b','c','a'} ); print "@$av\n";