use strict;

my @scores.

while (my $score = <>)
{
    last if $score =~ /\D/;
    push @scores, $score;
}

foreach my $score (@scores)
{
    print "The score was $score\n";
}