Shell Programming and Scripting

my input_file = "/dir/file.csv";
my output_file = "/dir/file.sql";

open my $csv_file, '<', $input_file
        or die "Can't open file '$input_file': $OS_ERROR";
my @lines = <$csv_file>;
close $csv_file
        or die "Can't close '$input_file' after reading: $OS_ERROR";
    
open my $sql_file, '>', $output_file
        or die "Can't open file '$sql_file' : $OS_ERROR";
    
for my $line (@lines) {
#Now I would like to split every line in an array of field, each field being separated by ';'
my @fields = ???;
# please I need some help here...

print $sql_file $fields[3];
print $sql_file ' ';
print $sql_file $fields[4];
print $sql_file ' ';
print $sql_file $fields[5];
print $sql_file "\n";
}
close $sql_file or die "Can't close '$output_file' after reading: $OS_ERROR";

awk -F';' '{print $3 $4 $5}' /dir/file.csv

my @fields = split /;/, $line;

chomp(my @lines = <$csv_file>);