#!/usr/bin/perl
$status = ug_convert(\@dr_con_list,$dataset,$datasettype,$release_status,$item_id,$item_revision,$local_option); 
sub ug_convert()
{
  my($local_con_list,$local_dataset,$local_datasettype,$local_release_status,$local_item_id,$local_item_rev,$local_option) = @_;
  print "entered in to convertion form\n";
  
     my $first_element = $local_con_list->[0];
     print "$first_element\n";
     #print "the con count is $con_list_len\n";
     foreach my $element ( @{$local_con_list} )
     {print "$element\n";}
}