my @array = ('aaa', 'bbb');
... #なんか操作して...
print "@array\n"; #配列の中身を表示

print @array . "\n"; #配列の中身を表示

print @array, "\n"; #文字列連結ではなく、カンマで区切って複数の引数を渡す

print join('', @array) . "\n"

split /\//, "/usr/bin/env perl";

split qr{/}, "/usr/bin/env perl";

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';
# vote.pl
# 1. 「自分の名前 (name)」と「好きな食べ物の配列のリファレンス (favorite\_foods)」を持ったハッシュリファレンスを作成しましょう (つまり、好きな食べ物は複数個書いてください)
# 2. 同様のハッシュリファレンスを2, 3個作ってみましょう (周りの人のリアルデータを使ってハッシュrefを作ると良いかもしれません)
# 3. 作成した複数のハッシュリファレンスを1つの配列に格納しましょう (配列を操作する関数を使っても良いですし、直で代入しても良いです)
# 4. どんな方法でも良いので、好きな食べ物のランキングを作って表示してみて下さい

my $hashref1 = {
    name           => 'tsucchi',
    favorite_foods => ['寿司', '刺身', '唐揚げ', 'ラーメン'],
};

my $hashref2 = {
    name           => 'シャーロック　シェリンフォード',
    favorite_foods => ['かまぼこ', 'ラーメン'],
};

my $hashref3 = {
    name           => '名無しの　権兵衛',
    favorite_foods => ['ラーメン', 'うどん', 'そば', '二郎', '寿司'],
};

my @data = (
    $hashref1,
    $hashref2,
    $hashref3,
);

#use Data::Dumper; warn Dumper(\@data);

my %rank = ();

for my $datum ( @data ) {
    for my $food ( @{ $datum->{favorite_foods} } ) {
        $rank{$food}++;
    }
}

for my $food_name ( sort { $rank{$b} <=> $rank{$a} } keys %rank ) {
    print "$food_name : $rank{$food_name}\n";
}

my %rank