use strict;
use warnings;

$\ = "\n";
$, = ', ';


my %hash = ();
$hash{"h"} = 10;
$hash{"z"} = 20;
$hash{"a"} = 30;

foreach my $key (keys %hash) {
    print "$key: $hash{$key}";
}

--output:--
a: 30
h: 10
z: 20

##</code><code>##

use strict;
use warnings;

$\ = "\n";
$, = ', ';


my %results = ();
my $line = 'HWUSI-EAS548:7:1:5:1527#0/1  + chr12  52084152 CGGAGC';

my @pieces = split /\s+/, $line;
my $id = $pieces[0];
my $seq = $pieces[-1];

$results{$id} = $seq;
foreach my $key (keys %results) {
    print "$key -----> $results{$key}";
}

--output:--
HWUSI-EAS548:7:1:5:1527#0/1 -----> CGGAGC

##</code><code>##

use strict;
use warnings;

$\ = "\n";
$, = ', ';


my %results = ();
while (<DATA>) {
    my @pieces = split /\s+/;
    my $id = $pieces[0];
    my $seq = $pieces[-1];
    $results{$id} = [] unless exists $results{$id};
    push @{$results{$id}}, $seq;
}

foreach my $key (keys %results) {
    my $arr_str = join ',', @{$results{$key}};
    print "$key -----> [$arr_str]";
}

__DATA__
HWUSI-EAS548:7:1:5:1527#0/1  + chr12  52084152 CGGAGC
HWUSI-EAS548:7:1:5:1527#0/1  + chr12  52084152 XXXXXX
Some_other_id  + chr12  52084152 CGGAGC

##</code><code>##

$ man perlintro

or

$ man perdsc

##</code><code>##

$man perl