sub spin {
 # as "golfy" as I could imagine for now
 print [qw{/ - \ |}]->[$_[0]++]."\033[1D";
 $_[0]%=4;
}
# ...
#somewhere outside the loop
my $j = 0;
# ...
foreach (@list_level_current_version) {
 spin($j); # print next spinning character
 # do the useful work
 if ($_ =~ /\Q$pattern/) { $dir = $_; last OUTER; } 
 # ...
}