sub querryDatabase() {
   my($inputData) = @_;
   ...

##</code><code>##

sub querryDatabase() {
   my($self, $inputData) = @_;
   ...

##</code><code>##

use strict;
use warnings;

package Widget
{
    use Moose;

    has 'ID' =>
    (
        is       => 'rw',
        isa      => 'Str',
        required =>  1,
    );

    sub inc_id
    {
        my ($self, $inc) = @_;
        my  $id = $self->ID;
        my ($prefix, $suffix) = $id =~ /^([^\d]+)(\d+)$/;
        $self->ID( $prefix . ($suffix + $inc) );
    }
}

my $gizmo = Widget->new( { ID => 'PM142' } );

print $gizmo->ID, "\n";
      $gizmo->inc_id(5);
print $gizmo->ID, "\n";

##</code><code>##

16:41 >perl 1366_SoPW.pl
PM142
PM147

16:41 >