use Data::Dumper; my %data; for my $line (@output) { my ($key, $value) = split /:/, $line, 2; $data{ $key } = $value; }; print Dumper \%data;