1  #!/usr/bin/perl
 2
 3  use strict;
 4  use warnings;
 5  
 6  my @array = qw(71 72 73 74 75);
 7  
 8  for my $elem(@array){
 9      $elem = chr($elem);
10 }
11
12  print $_,"\n" for(@array);