my $scalar_var = "1|2|3|4|5";
my @list = split /\|/, $scalar_var;
while( pop(@list) ) {
   ...
}