#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';


my %hash = ();
$hash{name} = 'Michelle';
$hash{age}  = 22;
$hash{city} = 'Austin';

say "1: @{[%hash]}";
say "2: %hash";
say "3: ",%hash;
say "4: ", join $",%hash;