Perl code - 3 lines

Link:

Perl, pasted on Dec 15:

1
2
3

use strict;
my %hash = ( one => 1 );
print %{$hash{one}};

Output:

1	Can't use string ("1") as a HASH ref while "strict refs" in use at line 3.