#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = qw(1 1 1 0 0 0 5 );
my @check = qw(1 1 1 1 0 0 0 5);

print Dumper \@check,\@array;

my $kuerzer = $#check - $#array;
print "\@array ist um $kuerzer Element(e) kuerzer\n";
unshift @array, @check[0..($kuerzer-1)];

print Dumper \@check,\@array;