gistfile1.txt

use G;
use 5.12.4;

my $gb = load('ecoli');
$gb->{$_}->{product} = '' for $gb->cds();
for ($gb->cds()){
  my $l = length $gb->{$_}->{translation};
  $gb->{$_}->{product} = 'ribosomal fucking protein' if $l >=500;
}
say Dumper w_value ($gb);