gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

sub main {

    my %hash  = (
        a => 123,
        b => '',
        c => undef,
        abcdef => 'lalala',
    );

    my @array = ( 1, 2, ['a', 'b'], sub { return 'test' } );


}
main();