#!/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);