#!/usr/bin/perl
@numbers = (1, 2, 3, 4, 5);
for (@numbers) {
    print "$_ x 5 = ", $_ * 5, ".\n";
}