#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %sn_service;
while ( defined(my $line = <DATA>) ) {
    my ($nr, $sn) = (split /;/, $line)[0,6];
    chomp ($nr, $sn);
    $sn_service{"$sn"} = $nr;
}
print Dumper \%sn_service;

__DATA__
hallo;welt;wie;geht;es;dir;heute
hi;mir;scheint;es;heute;gut;zu
gehen;danke;der;nachfrage;was;macht;die