Select Code to Download

use strict;
use warnings;
...
  as $hash{qw'a b c d'} at D:\temp\hashbug.pl line 8.
1    2    4    8
1    2    4    8

$ref=\%hash; 
print @{$ref}{qw'a b c'};