##
$VAR1 = [
'My Company',
'Gavin',
'Henry ',
'ghenry@ghenry.co.uk',
' 1.00'
];
$VAR1 = [
'My Company',
'Gavin',
'Henry ',
'ghenry@ghenry.co.uk',
' 1.00'
];
##
##
next unless $fields[4];
print Dumper \@fields;
$fields[4] =~ s/\s+//g;
print Dumper \@fields;