sub
getIncs
{
my
@$bar
=
shift
;
my
%incs
;
my
$inccount
=
0
;
my
$i
=
0
;
while
(
$i
<
@bar
-
1
)
{
for
(
$j
=
$i
;
1
;
$j
++;
)
{
if
(
$bar
[
$j
]
==
$bar
[
$j
+
1
]
+
1
)
{
$incs
{
$inccount
}
=
(
$i
,
$j
)
;
}
else
{
$inccount
++;
last
;
}
}
}