Распечатать полный список сотрудников и их авто

#!/usr/bin/perl
print ("имя сотрудника: $name \n");
$line=<STDIN>;
chop($line);
@names=split(/ /,$line);

#!/usr/bin/perl
 
print ("Введите имя сотрудника:\n");
$wordcount=0;
$str=<STDIN>;
    
    
while($str ne ""){
   @sotr=split(/ /,$str);
    $str+=@sotr;
    $str++;
    print("Сотрудник: @sotr\n");
    $str=<STDIN>;
}

#! /usr/bin/env perl
use strict;
use utf8;
use Data::Dumper;
 
=pod Праздничное пособие для студентов(ок)
Предполагаем след. структуру хранения данных сотрудников и их авто:
%db =   (
 
    'Икунин'        => [ 'ЗАЗ-965',                 ],
    'Дерикошко'     => [ 'Audi-80', 'Газ-24',       ],
    'Дутин'         => [ 'Нива',    'прицеп Скиф',  ],
    'Шойгэ'         => [ 'Бук-М',   'скутер',       ],
        );
 
создано 4 процедуры:
prompt  - для ввода данных
display - для показа данных
save    - сохранение данных из $db в файл в простом текст. виде для возможности редактирования
load    - загрузка данных в переменную $db
 
display,save и load используют возможности стандартного модуля Data::Dumper
соответственно для показа, сохранения и загрузки данных
=cut
 
our  %db=();            # Це наша база данных
 
sub prompt($) {
 
    my $prompt = shift . "[ или '0' для завершения ]: ";
    my @arr;
 
    print $prompt;
    while ( my $answer = <> ) {
        chomp $answer;
      last if $answer eq '0';
        push  @arr, $answer;
        print $prompt ;
    }
 
    return @arr;
}
 
sub display($) {
 
    my $header = shift; 
    print "$header\n";
    print Data::Dumper->Dump([\%db], ['*db']);
}
 
sub save() {
 
    $Data::Dumper::Purity = 1;    
    open  FILE, "> dbinfo.data" || die "не могу открыть dbinfo: $!";
    print FILE Data::Dumper->Dump([\%db], ['*db']);
    close FILE                  || die "не могу закрыть dbinfo:$!";
 
}
 
sub load() {
    do "dbinfo.data" || die "can't recreate dbinfo: $! $@";     
}
 
sub MAIN {
 
    if ( -e 'dbinfo.data' ) {
        load;
        display("Вот что сейчас в базе");
    }
 
    for my $owner ( prompt("Введите фамилию сотрудника") ) {
        $db{$owner} = [prompt("Введите авто сотрудника $owner")];
    }
 
    display "Вниманию налоговой инспекции";
    save;
    prompt "Сейчас можно поменять что-нибудь в файле dbinfo.data в простом текст. редакторе ...";
    load;
    display "Новые данные";
}
 
MAIN;