#!/usr/bin/perl
use warnings;
use strict;

my @numbers = (1..100);
my @tripled = map {$_ *3} @numbers;
print "tripled -> $_\t" foreach (@tripled);
print "\n";
my @ends_with_2 = grep {$_ =~ /2$/} @numbers;
print "Ends With 2 -> $_\t" foreach (@ends_with_2);
my %somehash = (
	"firstname" => "first",
	"secondname" => "middle",
	"lastname" => "surname",
);
print "\n";
foreach my $thing (sort keys %somehash) {
	print "Key$thing, Value is $somehash{$thing}\n";
}