You can get all the values at once, by using a hash slice.

my %hash = (a=>'apple',b=>'banana',c=>'cantaloupe',d=>'dice');

my ( $a, $b, $c, $d ) = @hash{
  qw( a   b   c   d )
};
[download]