open(old, "| /bin/old"); foreach my $INPUT(@DATA) { my ($LAST_NAME,$FIRSTNAME,$ID_NUM,$BOOK) = split(/\s+/,$INPUT); print old "$LAST_NAME\t$FIRSTNAME\n" print old "\t$ID_NUM\t$BOOK\n" }