perl メモ(リファレンス)

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
{
  # リファレンス
  my $foo = "foo";
  say $foo; # foo

  my $scalarref = \$foo;
  say $$scalarref; # foo

  my $ref = {
    A => "able",
    B => [1, 2, 3, 4, 5],
  };
  say "$ref->{A}, @{$ref->{B}}[0..2]"; # able, 1 2 3
}
exit;