sub spin {
my ($arg) = @_;
$|++;
for (my $x = 0; $x <= $arg; ++$x){
  foreach (("-", "\\", "|", "/")){
    print $_; Time::HiRes::sleep (0.1); print "\b";
  }
} 
print " \n";
}

##</code><code>##

my $dir;
my $pattern = $version; 
OUTER: foreach ( @list_level_top ) {
    my $name = "$_" . "/*"; 
    my @list_level_current_version = (glob ($name));
         foreach (@list_level_current_version) { 
             if ($_ =~ /\Q$pattern/) { $dir = $_; last           OUTER; } 
}
}

##</code><code>##

copy ("$source", "$destination") or die "Failed to copy setup file\n";