ref.pl

#!/usr/bin/perl

use warnings;
use strict;

my $profile01 = {
        id      => 'sion_cojp',
        lang    => [
                'perl',
                'bash',
                ],
        };

# デリファレンス
# 無名リスト
my $profile02 = ['nobita', 'suneo', 'jaian'];

print "@$profile02\n"; #nobita suneo jaian
print "$profile02->[2]\n"; #jaian





# 無名リファレンス
# 無名ハッシュ
my $profile03 = {
        id      => 'sion_cojp',
        lang    => [
                'perl',
                'bash',
                ],
        };

print %$profile03; #langARRAY(0xab0be0)idsion_cojp
print "\n";
print "$profile03->{id}\n"; #sion_cojp
print "$profile03->{lang}[0]\n"; #sion_cojpperl