#!/usr/bin/perl
use strict;
use warnings;

my @busi = ( -1, -42, 7, -17 );

for (my $i = 0; $i < @busi; $i++)
{
    $busi[$i] =~ s/-//g;
    print "\$busi[$i] = $busi[$i]\n";
}

__END__