my $superway = [qw(a b c d)];
print "Superway = @$superway\n\n";
my @erg = @$superway;

############
# anhängen
my $node_list = [qw(d e f g)];
print "node_list = @$node_list\n";
# erste Stelle von node_list wegwerfen 
shift @$node_list;
# und dann nach superway einfügen
push @erg, @$node_list;
print "@erg\n";

##############
# vorstellen
@erg = @$superway;
$node_list = [qw(x y z a)];
print "node_list = @$node_list\n";
# letzte Stelle von node_list wegwerfen 
pop @$node_list;
# und dann vor superway anfügen
unshift @erg, @$node_list;
print "@erg\n";

#####################
#umgedreht anhängen
@erg = @$superway;
$node_list = [qw(g f e d)];
print "node_list = @$node_list\n";
# letzte Stelle von node_list wegwerfen 
pop @$node_list;
# und dann umgekehrt nach superway anhängen
push @erg, reverse(@$node_list);
print "@erg\n";

#######################
#umgedreht vorstellen
@erg = @$superway;
$node_list = [qw(a z y x)];
print "node_list = @$node_list\n";
# erste Stelle von node_list wegwerfen 
shift @$node_list;
# und dann umgekehrt vor superway einfügen
unshift @erg, reverse(@$node_list);
print "@erg\n";