Worked example

Write a Perl script to read into an array @days the names of the seven days of the week and then display them on standard output.
Solution: Use the DATA filehandle and place the data at the end of the Perl script. One loop is needed to do both the assignment and the printing.

# Set variable i to count the lines of data read in
$i=0;

# Repeatedly read lines of data
while (<DATA>) {

    # Remove the trailing newline character
    chomp($_);

    # Set the array value indexed by i to the line
    $weekday[$i]=$_;

    # Print the line on standard output
    printf "$weekday[$i]\n";

    # Increment i
    $i++;
}
# The Perl program ends and the data follows
__END__
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday