in reply to match two files

my ( $first,$second) = split /t+/;
...
my ( $first,$second, $third ) = split /t+/ ;

No complete solution, but a quick tip: In the two quoted statements, if you want to split $_ on multiple tabs, use /\t+/ (note the backslash).
    my ( $first,$second) = split /\t+/;


Give a man a fish:  <%-{-{-{-<

Replies are listed 'Best First'.
Re^2: match two files
by yueli711 (Sexton) on Dec 09, 2020 at 06:24 UTC

    Hello AnomalousMonk, Thank you so much for your help! It still can not print out what I wanted. Best, Yue

    ARRAY(0x56213ba811e0)PeptideID ProteinID ARRAY(0x56213ba80a48)6 109521 ARRAY(0x56213baa3148)7 741 ARRAY(0x56213ba75888)11 681 ARRAY(0x56213ba75888)11 780 ARRAY(0x56213ba759c0)20 2352 ARRAY(0x56213bb278e8)27 1490 ARRAY(0x56213bb278e8)27 1491 ARRAY(0x56213bb278e8)27 1492 ARRAY(0x56213bb27bd0)28 51996