# one way;
my $day = '1ST';
my $num = substr ($day, 0, -2)
print $num;

# another, more fun way, if doing to $_;
chop;
chop;
print;

# so to print out a list
for (@days) {
  print substr($_, 0, -2)."\n";
}