# data_read

use strict;
use warnings;

while (<DATA>)
{
    chomp;
    my @data = split;
    for (my $i = 0; $i <= $#data; ++$i)
    {
        print "$._$i = $data[$i]\n";
    }
}

__DATA__
qwerty qwerty qwerty asdf zxcv 1234 
qwerty qwerty qwerty asdf zxcv