perl -wle '$_="abc"; my $ref = [ /(a)/ => 200 ]; print "@{$ref}";'
a 200