DB<1>  %hash = ( jan => 1, feb => 2, mar => 3);

  DB<2> push @array, $hash{$_} for keys %hash;

  DB<3> x \@array;
0  ARRAY(0x20275150)
   0  1
   1  3
   2  2