Select Code to Download

my %table_fields = (
    table1 => [ 'field1' , 'field2' , 'field3' ],
...
    my ($self,$table) = @_;
    return $table_fields{$table};
}

sub save {
    my $self  = shift;
...
    return ( $id );
}