Select Code to Download

user:pass user1:pass1 use:pas
         ^           ^

user:pass
user1:pass1
use:pas

#!/usr/bin/perl
use 5.016;
use warnings;
...
    my ($first, $second) = split /:/, $current_element;
    say "\$first: $first & \$second: $second";
}

user:passer use:pass user1:pass1
That was $list; these are the elements of @arr:
user:passer
...
$first: use & $second: pass
user1:pass1
$first: user1 & $second: pass1