while (<>) {
    my ($mag,$abu) = split;
    # . . .
}