use strict; use warnings; use Data::Dumper; my @list= ("Andy", "1995", "Sarah", "1990", "Sam", "1992"); my %people = @list; print Dumper \%people;