#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Purity;
$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;
$Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
    my ($hash) = @_;
    return [(sort {lc $a cmp lc $b} keys %$hash)];
};
use 5.010;

my $test = sub {
    my ($teile) = @_;
    say Dumper($teile);
    say "in der sub: ".join('/',@{$teile->[0..scalar(@$teile) - 2]});
};
my @teile = split(/[\\\/]/,'http://www.....');
say "ausserhalb: ".join('/',@teile[0..scalar(@teile) - 2]);
$test->(\@teile);