while (<>) {
    my @args = split;
    # Now use $args[0] & $args[2] as appropriate
    .
    .
}