#!/usr/local/bin/perl

use strict;
use warnings;
use Curses;

my @test_array;

push @test_array,"item 1|description 1";
push @test_array,"item 2|description 2";

my $count=0;

foreach $record (@test_array) {
    split /\|/,$record;
    $item=new_item($_[0],$_[1]);
    push @il,$item;
    push @pack,${$item};
};