while(<USERNAME>)                     # reads first entry
        {
        my @newusername = <USERNAME>;     # reads remaining entries
    foreach $name (@newusername)
        ...