sub import99 { print $q->h3 ({-style=>'Color:#0000CC'},'Please Choose 9940 Tape Range for Import.'), $q->h3 ({-style=>'Color:#CC3300'},'Note: Inject Tapes via Acsls Prior To Import!'); my @H99tapes =('H02043' .. 'H02999'); ##--##MAINARRAY my @UserH99tapes = @H99tapes;##--## USER SELECTIONS print $q->scrolling_list('htapes99',[@H99tapes],[$H99tapes[0]],10,-multiple=>'true',my %attributes), $q->submit('form','Submit'), $q->reset; ##--BEGINIMPORT ##--## AS H NUMBERS ARE SELECTED, REMOVE SUBMITTED ELEMENTS ##--## FROM USER ARRAY ##--## REPOPULATE LIST INTO NEW ARRAY,PRINT NEW ARRAY my @tape_imports = $q->param(htapes99); ##--## SELECTED BY USER my $tape_count = scalar @tape_imports; $[=0; foreach (@tape_imports) { splice (@H99tapes,0,$tape_count,@H99tapes) } } ##--## END ROUTINE import99 ##--##