Working in perl, octave 2 go