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

my $str = "1,2,3,4,5";
my @array = ();

my ($ids, $attri) = split /,/, $str;
print "    \$ids:  [$ids]\n";
print "  \$attri:  [$attri]\n";

splice (@array,$ids, 1);
print "  \@array:\n";
my $array_index = 0;
foreach my $array_element (@array) {
	print "            [$array_index]:  [$array_element]\n";
}

print "Okay, now what?\n";

sub refreshdisplay{
	my $id=0;
	my $arraylist = "";
	for($id=0;$id<=$#array;$id++){
		if($id == 0){
			$arraylist = "$array[0]";
		}
		else{
			$arraylist .= "$id,$array[$id]\n";    
		}
	}
}