#! /usr/bin/perl -w

use strict;
use warnings;
use feature qw(say);

my $hoge = 0;
my @hoge = (0, 1, 2, 3, 4, 5, 6, 7);
my %hoge = (
    zero => 0,
    one  => 1,
    two  => 2,
);
say $hoge;
say join(", ", @hoge);
say "0 != 1" if ($hoge != $hoge[1]);
foreach my $key (keys %hoge) {
    say "$key => $hoge{$key}";
}