#!/usr/bin/perl -w
use strict;
use Perl6::Form;

my @barcodes=qw/8129348 2354234 234234534 21342134 23453421/;   
my @prices = qw/625.50 626.35 234.23 546.54 3245.45/;
my @quants = qw/2 2 34 4 6/;
my @values = qw/21345 345345 345345 3453 34534/;

my $total = 0;
foreach(@values){$total+=$_};


print form
' ============================================================',
'|                       Goods in Stock                      |',
'|===========================================================|',
'|   Barcode   |     Price     |   Quantity  |     Value     |',
'|-------------+---------------+-------------+---------------|',
'| {[[[[[[[[[} | {$]]]]]].[[[} | {]]]]]]]]]} | {$]]]]]]].[[[}|',
   \@barcodes,    \@prices,        \@quants,     \@values,
'|===========================================================|',
'|                       Total Value In Stock  {$]]]]]]].[[[}|',
                                               $total,
' =========================================================== ',
;